home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
chaosexe.zip
/
XREADBAS.TRU
< prev
next >
Wrap
Text File
|
1980-01-01
|
2KB
|
51 lines
!Pendulum Program "XREADBAS"INS OF ATTRACTION
LIBRARY "SGLIB.TRC"
DIM A(1),B(1)
CLEAR
PRINT" ***BASINS OF ATTRACTION***"
PRINT"THIS PROGRAM READS TWO DATA FILES CONTAINING 'BASIN OF ATTRACTION' DATA"
PRINT"AND THE CORRESPONDING POINCARE SECTIONS FROM EACH SET OF INITIAL "
PRINT"CONDITIONS. THE DATA IS PLOTTED ON THE PHASE PLANE."
PRINT
INPUT PROMPT" INPUT G VALUE:":G
INPUT PROMPT"DAMPING FACTOR:":Q
INPUT PROMPT"WHICH DRIVE FOR DATA DISK:":D$
INPUT PROMPT"NAME OF 'BASINS OF ATTRACTION' FILE:":NAME$
INPUT PROMPT"DO YOU WISH CORRESPONDING POINCARE FILE, YES(1), NO(2) :":P
IF P = 1 THEN
INPUT PROMPT"NAME OF POINCARE FILE:":POINFILE$
INPUT PROMPT"INPUT TYPE OF SYMBOL FOR POINCARE PLOT, DOT(1),ASTERISK(3),BOX(10):":STYLE
END IF
!
CALL SETTEXT("PENDULUM - BASINS OF ATTRACTION","INIT. ANGLE","INIT ANG VEL")
CALL SETXSCALE(-3,3)
CALL SETYSCALE(-3,3)
CALL RESERVELEGEND
DATA 0,0
CALL DATAGRAPH(A,B,1,0,"WHITE")
CALL GOTOCANVAS
OPEN #1: NAME D$&":"&NAME$, ORGANIZATION RECORD
SET#1: RECORD 1
WHEN ERROR IN
DO WHILE MORE #1
READ #1: XINT,VINT
CALL GRAPHPOINT(XINT,VINT,4)
LOOP
USE
END WHEN
IF P = 1 THEN
OPEN #2:NAME D$&":"&POINFILE$, ORGANIZATION RECORD
SET#1: RECORD 1
WHEN ERROR IN
DO WHILE MORE #1
READ #2: X,V
CALL GRAPHPOINT(X,V,STYLE)
LOOP
USE
END WHEN
END IF
CALL ADDLEGEND("G="&STR$(G)&" Q="&STR$(Q),0,1,"WHITE")
CALL DRAWLEGEND
END